home *** CD-ROM | disk | FTP | other *** search
- on exitFrame
- global gMaxBoutons, gBarChron, g1erSprLoc, g1erSprNav, gSujet1, gSujet0, gChapAct, gEtudAct, gEtudPrec, gCDpath, gVersion
- curseur(6)
- set gMaxBoutons to 39
- set g1erSprLoc to 22
- set gChapAct to "SU"
- set gEtudAct to " "
- set gEtudPrec to " "
- gBarChron(fleche, 0, 70, 2)
- set the visible of sprite 3 to 0
- set the visible of sprite 4 to 1
- set the visible of sprite 44 to 1
- set the visible of sprite 45 to 1
- if gSujet0 = 0 then
- set the text of cast "ZI1" to " "
- set the text of cast "ZI2" to " "
- set the text of cast "ZI3" to " "
- repeat with i = g1erSprNav to gMaxBoutons
- puppetSprite(i, 0)
- end repeat
- set the visible of sprite 2 to 1
- else
- set the fileName of cast "FICHE SUJET" to gVersion & "S" & gSujet0(Le_Code) & "F.PIC"
- go(label("SU:IN GE"))
- end if
- end
-